home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
87xx
/
8702b.d64
/
lores editor
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
3KB
|
109 lines
10 A=A+1:IFA=1THENLOAD"LORES",8,8
15 IFA=2THENLOAD"MPKOPIER",8,8
20 POKE53281,0:POKE2,6
21 PRINT"[147][154]LORES EDITOR
30 [153]"BY HELMUT BURGEMEISTER
40 PRINT"1. BILD LADEN
50 [153]"2. BILD SPEICHERN
60 PRINT"3. BILD EDITIEREN
70 [153]"4. BILD EINFAERBEN
80 PRINT"5. DOS KOMMANDOS
100 [151]198,0:[146]198,1:[161]A$
110 A[178][197](A$)
120 [139]A$[179]"1"[176]AA$[177]"5"[167]100
130 [145]A[137]1000,2000,3000,4000,5000
1000 [153]"LOADBILD LADEN"
1010 [133]"BILDNAME";B$
1020 [153]"MIT FARBE LADEN (J/N)
1030 GOSUB9000
1040 IFA$<>"J"ANDA$<>"N"THEN1030
1050 IFA$="J"THENFA=1:GOTO1100
1060 FA=0
1100 POKE2,6:SYS828+6:OPEN2,8,2,B$+",P,R":GOSUB8000:CLOSE2:IFA<>0THEN20
1105 OPEN2,8,2,B$+",P,R"
1110 GET#2,A$:GET#2,A$
1120 FORT=0TO999
1130 GET#2,A$:IFA$=""THENA$=" "
1140 POKE1024+T,ASC(A$)
1150 NEXT
1160 CLOSE2:SYS828
1170 IFFA=0THENGOTO20
1180 OPEN2,8,2,B$+".,P,R":GOSUB8000:CLOSE2:IFA<>0THEN20
1185 OPEN2,8,2,B$+".,P,R"
1190 GET#2,A$:GET#2,A$
1200 FORT=0TO999
1210 GET#2,A$:IFA$=""THENA$=" "
1220 POKE55296+T,ASC(A$):NEXT:CLOSE2
1230 SYS828+12:GOTO20
2000 PRINT"[147]BILD SICHERN
2010 [133]"BILDNAME";B$
2020 [153]"MIT FARBE SICHERN (J/N)
2030 GOSUB9000
2040 IFA$<>"J"ANDA$<>"N"THEN2030
2050 IFA$="J"THENFA=1:GOTO2100
2060 FA=0
2100 SYS828+3:OPEN2,8,2,B$+",P,W":GOSUB8000:CLOSE2:IFA<>0THEN20
2105 OPEN2,8,2,"@:"+B$+",P,W"
2110 PRINT#2,CHR$(0);:PRINT#2,CHR$(4);
2120 FORT=0TO999
2140 PRINT#2,CHR$(PEEK(1024+T));
2150 NEXT:PRINT#2,CHR$(13)
2160 CLOSE2
2170 IFFA=0THENGOTO20
2175 SYS828+9
2180 OPEN2,8,2,B$+".,P,W":GOSUB8000:CLOSE2:IFA<>0THEN20
2185 OPEN2,8,2,"@:"+B$+".,P,W"
2190 PRINT#2,CHR$(0);:PRINT#2,CHR$(216);
2200 FORT=0TO999
2220 PRINT#2,CHR$(PEEK(55296+T));:NEXT:CLOSE2
2230 GOTO20
3000 POKE2,6:SYS828+3:SYS828+6
3010 X=40:Y=24:C=6:POKE53280,P
3020 IFY/2<>INT(Y/2)THENZ=Y-1:GOTO3022
3021 Z=Y
3022 H=PEEK(1024+((X/2)+(40*(Z/2))))
3025 IFP=0ORP=1THENSYS49152,X,Y,1,C
3027 IFP=0ORP=2THENSYS49152,X,Y,0,C
3030 IFP=0THENPOKE1024+((X/2)+(40*(Z/2))),H
3040 J=PEEK(56320)
3050 IF(JAND1)=0THENY=Y-1:IFY=-1THENY=0
3060 IF(JAND2)=0THENY=Y+1:IFY=50THENY=49
3070 IF(JAND4)=0THENX=X-1:IFX=-1THENX=0
3080 IF(JAND8)=0THENX=X+1:IFX=80THENX=79
3090 IF(JAND16)=0THENP=P+1:POKE53280,P:IFP=3THENP=0:POKE53280,P
3095 IFPEEK(203)=1THENSYS828:GOTO20
3097 IFPEEK(203)=6THENPOKE2,PEEK(55296)+1:SYS828+6:C=PEEK(2)
3098 IFPEEK(2)>253THENPOKE2,0
3099 IFPEEK(203)=4THENPOKE53281,PEEK(53281)-1
3100 GOTO3020
4000 IFFA=0THENPRINT"[147]FARBE IM SPEICHER UEBERNEHMEN (J/N)
4002 [139]FA[178]0[167][141]9000:[139]A$[178]"J"[167]FA[178]1
4010 [158]828[170]3:[151]2,6:[158]828[170]6:P[178]0:F[178]0
4015 [139]FA[178]1[167][158]828[170]9
4017 X[178]20:Y[178]12:C[178]6:[151]53280,P
4020 H[178][194](55296[170]X[170]40[172]Y)
4030 [139]P[178]0[167][151]55296[170]X[170]40[172]Y,H[171]1
4040 [139]P[178]0[167][151]55296[170]X[170]40[172]Y,H
4050 [139]P[178]1[167][151]55296[170]X[170]40[172]Y,F
4053 J[178][194](56320)
4055 [139](J[175]1)[178]0[167]Y[178]Y[171]1:[139]Y[178][171]1[167]Y[178]0
4060 [139](J[175]2)[178]0[167]Y[178]Y[170]1:[139]Y[178]25[167]Y[178]24
4070 [139](J[175]4)[178]0[167]X[178]X[171]1:[139]X[178][171]1[167]X[178]0
4080 [139](J[175]8)[178]0[167]X[178]X[170]1:[139]X[178]40[167]X[178]39
4090 [139](J[175]16)[178]0[167]P[178]1[171]P:[151]53280,P
4100 [139][194](203)[178]5[167]F[178]F[170]1
4110 [139][194](203)[178]1[167][158]828[170]12:[137]20
4120 [139][194](203)[178]4[167][151]53281,[194](53281)[171]1
4130 [139][194](203)[178]6[167][151]2,[194](55296)[171]1:[158]828[170]6:H[178][194](2)
4140 [139]H[177]254[167][151]2,0:H[178]0
4150 [137]4020
5000 [153]"LOADDOS KOMMANDOS
5010 PRINT"COMMAND: ";:POKE631,34:POKE198,1:INPUTA$
5020 OPEN1,8,15:PRINT#1,A$:CLOSE1:GOSUB8000:GOTO20
8000 OPEN1,8,15:INPUT#1,A,A$,B,C
8010 IFA<>0THENPRINT"STATUS: "A" "A$" "B" "C
8020 CLOSE1:IFA<>0THENGOSUB9000
8030 RETURN
9000 POKE198,0:WAIT198,1:GETA$:RETURN
10000 PRINTPEEK(203);:GOTO10000